(Info-select-node): Run Info-selection-hook.

diff --git a/lisp/info.el b/lisp/info.el
index 843fc97a6645c5fbecd6c49a3ef8e4fec929ee5f..5b37550502a2f2a92a758f0e5a93c3adf091291b 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -475,7 +475,8 @@ to read a file name from the minibuffer."
                                  (setq active-expression
                                        (read (current-buffer))))))
                         (point-max)))
-     (if Info-enable-active-nodes (eval active-expression)))))
+     (if Info-enable-active-nodes (eval active-expression))
+     (run-hooks 'Info-selection-hook))))
 
 (defun Info-set-mode-line ()
   (setq mode-line-buffer-identification